-- background: 2737 from stack: in.7
-- bmap block id: 5731
-- flags: 0000
-- background id: 0
-- name: BlankTopicBkgnd


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=1 right=16 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  hide tool window
  answer "Perhaps you accidently pressed Quit?" with "Yes I did" or "No I didn't"
  if it is "No I didn't" then domenu "Quit Hypercard"
end mouseUp




-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=20 top=0 right=17 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: HeaderFld


-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=19 right=33 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Chapter List
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  go to card "ChptLstCrd"
end mouseUp




-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=36 right=50 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Topic List
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  global Chapt
  go to card Chapt
end mouseUp




-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=53 right=68 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Page
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  if not(short name of this card is "@") then
    answer "Use ‘Delete’ to delete ‘table of contents page’"
    exit mouseup
  end if
  answer "About to Delete the current page..." with "Cancel" or "OK"
  if it is "Cancel" then exit mouseup
  if short name of this card is "@" then
    set cursor to 4
    set lockscreen to "true"
    domenu "delete card"
    put short name of this card into RCard
    if RCard is "@" then
    else
      go to prev card
      choose button tool
      click at loc of button "NxtPg"
      domenu "clear button"
      choose browse tool
    end if
    if the number of card fields is 1
    then put IBeam("TxtFld") into dummy
    flash 2
  end if
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=69 right=84 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Page
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  answer "Insert new page following this one?" with "Cancel" or "OK"
  if it is "Cancel" then exit mouseup
  set cursor to 4
  MakePage
  flash 2
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=87 right=102 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GetPaintDoc
----- HyperTalk script -----
on mouseUp
  if the number of card fields is 1 then
    beep 1
    answer "Text field exits." with "OK"
    answer "Import Paint File --> Clipboard?" with "Cancel" or "OK"
    if it is "Cancel" then
      exit mouseup
    end if
  else
    answer "Import Paint File --> Clipboard?" with "Cancel" or "OK"
    if it is "Cancel" then exit mouseup
  end if
  hide tool window
  set lockscreen to true
  choose select tool
  domenu "Import Paint..."
  domenu "Select All"
  domenu "Transparent"
  drag from 0,0 to 512,342 with commandKey
  type "x" with commandKey
  type "v" with commandKey
  domenu "Transparent"
  show tool window
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=103 right=119 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MakePaintDoc
----- HyperTalk script -----
on mouseUp
  answer "Export this window to a MacPaint file?" with "Yes" or "Cancel"
  if it is "Yes" then
    choose text tool
    domenu "Export Paint..."
    choose browse tool
  end if
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=120 right=136 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ShowHide Tools
----- HyperTalk script -----
on mouseUp
  get visible of tool window
  if it is false then
    show tool window
  else
    hide tool window
  end if
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=155 right=170 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FontSpacing
----- HyperTalk script -----
on mouseUp
  if the number of card fields is 0 then
    answer "Can't change font spacing - no field!"
    exit mouseup
  else
    answer "Choose a Text Font Style" with "Mono-spaced" or "Proportional" or "Cancel"
    if it is "Mono-spaced" then
      set textFont of card field "TxtFld" to Monaco
      put IBeam("TxtFld") into dummy
    end if
    if it is "Proportional"
    then set textFont of card field "TxtFld" to Geneva
    if it is "Cancel" then
      put IBeam("TxtFld") into dummy
      exit mouseup
    end if
    if the number of card fields is 1
    then put IBeam("TxtFld") into dummy
  end if
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=171 right=187 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ChangeWindUse
----- HyperTalk script -----
on mouseUp
  global WindType
  if the number of card fields is 0 then
    put "Create a new text field?" into prompt
    answer prompt with "Cancel" or "OK"
    if it is "Cancel" then exit mouseup
  end if
  put "Set Text Field Format to..." into prompt
  answer prompt with "Scroll" or "Cancel" or "Reg Text"
  if it is "Cancel" then
    exit mouseup
  else
    put it into WindType
  end if
  set lockscreen to "true"
  if WindType is "Scroll" or it is "Reg Text" then
    if the number of card fields is 0 then
      MakeField
      flash 2
    else
      get style of card field "TxtFld"
      if it is "transparent" and WindType is "Scroll" then set Style of card field "Txtfld" to scrolling
      if it is "scrolling" and WindType is "Reg Text" then
        answer "Any text beyond the window will be Hidden!" with "Go Ahead" or "Cancel"
        if it is "go ahead" then
          set Style of card field "Txtfld" to transparent
        else
          --  Cancel
        end if
      end if
      put IBeam("TxtFld") into dummy
    end if
  end if
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=188 right=204 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DeleteFld
----- HyperTalk script -----
on mouseUp
  if the number of card fields is 0 then
    answer "There is no text field to delete!"
    exit mouseup
  else
    answer "Delete this text field?" with "Cancel" or "OK"
    if it is "OK" then
      set lockscreen to "true"
      if the number of words in card field "TxtFld" > 0 then
        answer "Delete a field containing text?" with "Cancel" or "OK"
        if it is "Cancel" then exit mouseup
      end if
      choose field tool
      click at loc of card field "Txtfld"
      domenu "clear field"
      choose browse tool
      flash 2
    end if
  end if
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=137 right=152 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SurSelect
----- HyperTalk script -----
on mouseUp
  global ptype,Xit
  put false into Xit
  answer "About to Cut Pict to Clipboard..." with "Cancel" or "OK"
  if it is "Cancel" then exit mouseup
  choose select tool
  drag from 0,0 to 512,342 with commandKey
  type "x" with commandKey
  if Xit then exit mouseup
  choose browse tool
end mouseUp



-- part 58 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=205 right=221 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TextFile
----- HyperTalk script -----
on mouseUp
  put id of this card into WasHere
  answer "Send all text fields to textfile?" with "Cancel" or "OK"
  if it is empty or it is "Cancel" then exit mouseup
  get short name of this stack
  put it & ".txt" into prompt
  Get PutFile("Save text as:",prompt)
  if it is empty then exit mouseup
  put it into flName
  answer "Remove trailing" && quote & "RETURNs?" & quote with "Cancel" or "OK"
  if it is "OK" then
    set cursor to 4
    set lockscreen to true
    go to card "NtTmplt"
    repeat while short name of this card is not "Welcome"
      if the number of card fields is 1 then
        repeat while last line of card field "TxtFld" is empty
          delete last line of card field "TxtFld"
          if last line of card field "TxtFld" is first line of card field "TxtFld" then exit repeat
        end repeat
      end if
      go to next card
    end repeat
  end if
  beep 1
  put "Flashing screen signals completion of field export."
  open file flName
  go to card "ChptLstCrd"
  put card field "ChptOrdrFld" into ChptPrntOrdr
  repeat with x = 1 to the number of lines in ChptPrntOrdr
    put line x of ChptPrntOrdr into ChaptNum
    put Bs10To26(ChaptNum) into Chapt
    go to card Chapt
    put field "TpcOrdrFld" into TpcPrntOrdr
    repeat with y = 1 to the number of lines in TpcPrntOrdr
      put line y of TpcPrntOrdr into TpcNum
      go to card Chapt & TpcNum
      if the number of card fields is 1 then
        write card field "txtfld" to file flName
        write return & return to file flName
        go to next card
        repeat while short name of this card is "@"
          if the number of card fields is 1 then
            write card field "txtfld" to file flName
            write return & return to file flName
            go to next card
          end if
        end repeat
      end if
    end repeat
  end repeat
  close file flName
  hide msg
  go to WasHere
  flash 2
end mouseUp



-- part 59 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=291 right=306 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PrintOptions
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  answer "Choose a Print Option" with "This Card" or "All Cards" or "Cancel"
  put short name of this card into WasHere
  if it is "Cancel" then exit mouseup
  if it is "All Cards" then
    go to card "ChptLstCrd"
    put card field "ChptOrdrFld" into ChptPrntOrdr
    repeat with x = 1 to the number of lines in ChptPrntOrdr
      put line x of ChptPrntOrdr into ChaptNum
      put Bs10To26(ChaptNum) into Chapt
      go to card Chapt
      put field "TpcOrdrFld" into TpcPrntOrdr
      repeat with y = 1 to the number of lines in TpcPrntOrdr
        put line y of TpcPrntOrdr into TpcNum
        go to card Chapt & TpcNum
        domenu "print card"
        go to next card
        repeat while short name of this card is "@"
          domenu "print card"
          go to next card
        end repeat
      end repeat
    end repeat
    go to card WasHere
    flash 2
    exit mouseup
  end if
  if it is "This Card"
  then domenu "print card"
end mouseUp



-- part 61 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=222 right=238 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TxtImport
----- HyperTalk script -----
on mouseUp
  global WindType, Xit, flName
  if the number of card fields is 0 then
    answer "There is no field to import text to!" with "OK"
    exit mouseup
  end if
  answer "Choose a text file to import" with "Cancel" or "OK"
  if it is "Cancel" then exit mouseup
  Get fileName("TEXT")
  if it is empty then exit mouseup
  put it into flName
  open file flName
  SendTxtToFld
  if Xit then
    close file flName
    hide msg
    exit mouseup
  end if
  repeat while true
    answer "Do you want to read more to this page?" with "Finished" or "Read More" or "Next Page"
    if it is "Finished" then
      close file flName
      hide msg
      exit mouseup
    end if
    if it is "Next Page" then
      MakePage
      put "Set Text Field Format to..." into prompt
      answer prompt with "Scroll" or "Reg Text"
      put it into WindType
      MakeField
      set lockscreen to false
    end if
    SendTxtToFld
    if Xit then
      close file flName
      hide msg
      exit mouseup
    end if
  end repeat
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=325 right=342 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BkgndBtn
----- HyperTalk script -----
on mouseUp
  type "b" with commandKey
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=308 right=322 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MenuBtn
----- HyperTalk script -----
on mouseUp
  type NumtoChar(32) with commandKey
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=273 right=289 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ScrapBtn
----- HyperTalk script -----
on mouseUp
  domenu "Scrapbook"
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=256 right=271 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PasteBtn
----- HyperTalk script -----
on mouseup
  global ptype
  type "v" with commandkey
  if ptype is "paste picture"
  then show tool window
end mouseup


-- part 66 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=239 right=255 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FtoC
----- HyperTalk script -----
on mouseUp
  if the selection is empty then
    answer "You must select text to copy!" with "OK"
    exit mouseup
  end if
  answer "About to copy text to clipboard" with "OK"
  type "c" with commandkey
end mouseUp